home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / grptr10 / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-14  |  6.5 KB  |  204 lines
  1. VERSION 5.00
  2. Object = "{71A84222-5296-11D3-9029-AD32BF5E5177}#1.0#0"; "GR-PROGRESS.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Totalidea GradientProgress Bar Demo Project"
  6.    ClientHeight    =   3045
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5070
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3045
  15.    ScaleWidth      =   5070
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin GradientProgressBar.grprogress grprogress1 
  18.       Height          =   945
  19.       Left            =   90
  20.       TabIndex        =   18
  21.       Top             =   450
  22.       Width           =   4905
  23.       _ExtentX        =   8652
  24.       _ExtentY        =   1667
  25.       BeginColor      =   65280
  26.       EndColor        =   255
  27.       BorderStyle     =   1
  28.    End
  29.    Begin VB.OptionButton Option9 
  30.       Caption         =   "Use Separators"
  31.       Height          =   255
  32.       Left            =   3360
  33.       TabIndex        =   17
  34.       Top             =   2700
  35.       Width           =   1425
  36.    End
  37.    Begin VB.Frame Frame3 
  38.       Caption         =   "CaptionVisible:"
  39.       Height          =   795
  40.       Left            =   3720
  41.       TabIndex        =   14
  42.       Top             =   1680
  43.       Width           =   1275
  44.       Begin VB.OptionButton Option8 
  45.          Caption         =   "No"
  46.          Height          =   195
  47.          Left            =   330
  48.          TabIndex        =   16
  49.          Top             =   480
  50.          Width           =   645
  51.       End
  52.       Begin VB.OptionButton Option7 
  53.          Caption         =   "Yes"
  54.          Height          =   195
  55.          Left            =   330
  56.          TabIndex        =   15
  57.          Top             =   240
  58.          Value           =   -1  'True
  59.          Width           =   645
  60.       End
  61.    End
  62.    Begin VB.TextBox Text1 
  63.       Height          =   255
  64.       Left            =   1500
  65.       TabIndex        =   13
  66.       Text            =   "%"
  67.       Top             =   2730
  68.       Width           =   1575
  69.    End
  70.    Begin VB.Frame Frame2 
  71.       Caption         =   "Show Caption as "
  72.       Height          =   795
  73.       Left            =   1500
  74.       TabIndex        =   9
  75.       Top             =   1680
  76.       Width           =   2145
  77.       Begin VB.OptionButton Option6 
  78.          Caption         =   "Value-Units"
  79.          Height          =   195
  80.          Left            =   150
  81.          TabIndex        =   11
  82.          Top             =   510
  83.          Width           =   1305
  84.       End
  85.       Begin VB.OptionButton Option5 
  86.          Caption         =   "Percentage"
  87.          Height          =   225
  88.          Left            =   150
  89.          TabIndex        =   10
  90.          Top             =   240
  91.          Value           =   -1  'True
  92.          Width           =   1155
  93.       End
  94.    End
  95.    Begin VB.Frame Frame1 
  96.       Caption         =   "Direction:"
  97.       Height          =   1305
  98.       Left            =   90
  99.       TabIndex        =   4
  100.       Top             =   1680
  101.       Width           =   1335
  102.       Begin VB.OptionButton Option1 
  103.          Caption         =   "Left-Right"
  104.          Height          =   225
  105.          Left            =   120
  106.          TabIndex        =   8
  107.          Top             =   210
  108.          Value           =   -1  'True
  109.          Width           =   1035
  110.       End
  111.       Begin VB.OptionButton Option2 
  112.          Caption         =   "Right-Left"
  113.          Height          =   225
  114.          Left            =   120
  115.          TabIndex        =   7
  116.          Top             =   480
  117.          Width           =   1035
  118.       End
  119.       Begin VB.OptionButton Option3 
  120.          Caption         =   "Down-Up"
  121.          Height          =   225
  122.          Left            =   120
  123.          TabIndex        =   6
  124.          Top             =   750
  125.          Width           =   1035
  126.       End
  127.       Begin VB.OptionButton Option4 
  128.          Caption         =   "Up-Down"
  129.          Height          =   225
  130.          Left            =   120
  131.          TabIndex        =   5
  132.          Top             =   1020
  133.          Width           =   1035
  134.       End
  135.    End
  136.    Begin VB.HScrollBar HScroll1 
  137.       Height          =   195
  138.       Left            =   90
  139.       Max             =   1000
  140.       TabIndex        =   0
  141.       Top             =   1410
  142.       Width           =   4905
  143.    End
  144.    Begin VB.Label Label4 
  145.       Caption         =   "Set CaptionAppendix:"
  146.       Height          =   225
  147.       Left            =   1500
  148.       TabIndex        =   12
  149.       Top             =   2520
  150.       Width           =   1545
  151.    End
  152.    Begin VB.Label Label3 
  153.       Alignment       =   1  'Right Justify
  154.       Height          =   195
  155.       Left            =   4590
  156.       TabIndex        =   3
  157.       Top             =   90
  158.       Width           =   375
  159.    End
  160.    Begin VB.Label Label2 
  161.       Caption         =   "GradientValue:"
  162.       Height          =   195
  163.       Left            =   3450
  164.       TabIndex        =   2
  165.       Top             =   90
  166.       Width           =   1065
  167.    End
  168.    Begin VB.Label Label1 
  169.       Caption         =   "Gradient Progress Bar Demo:"
  170.       Height          =   195
  171.       Left            =   120
  172.       TabIndex        =   1
  173.       Top             =   90
  174.       Width           =   2085
  175.    End
  176. Attribute VB_Name = "Form1"
  177. Attribute VB_GlobalNameSpace = False
  178. Attribute VB_Creatable = False
  179. Attribute VB_PredeclaredId = True
  180. Attribute VB_Exposed = False
  181. Private Sub Form_Load()
  182. HScroll1.Value = grprogress1.Value
  183. End Sub
  184. Private Sub HScroll1_Change()
  185. If Option9.Value = True Then grprogress1.SepInterval = 20
  186. If Option7.Value = True Then grprogress1.ShowCaption = True
  187. If Option8.Value = True Then grprogress1.ShowCaption = False
  188. If Option5.Value = True Then grprogress1.CaptionAsPercentage = True
  189. If Option6.Value = True Then grprogress1.CaptionAsPercentage = False
  190. If Option1.Value = True Then grprogress1.GradientDirection = LeftRight
  191. If Option2.Value = True Then grprogress1.GradientDirection = RightLeft
  192. If Option3.Value = True Then grprogress1.GradientDirection = DownUp
  193. If Option4.Value = True Then grprogress1.GradientDirection = UpDown
  194. grprogress1.Paint HScroll1.Value
  195. grprogress1.Captionappendix = Text1.Text
  196. Label3.Caption = grprogress1.Value
  197. End Sub
  198. Private Sub Option5_Click()
  199. Text1.Text = "%"
  200. End Sub
  201. Private Sub Option6_Click()
  202. Text1.Text = "units"
  203. End Sub
  204.